home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / EXTDLGS.INT < prev    next >
Encoding:
Text File  |  1997-08-05  |  1.0 KB  |  41 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995,97 Borland International     }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ExtDlgs;
  11.  
  12. {$R-}
  13.  
  14. interface
  15.  
  16. uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
  17.   ExtCtrls, Buttons, Dialogs;
  18.  
  19. type
  20.  
  21. { TOpenPictureDialog }
  22.  
  23.   TOpenPictureDialog = class(TOpenDialog)
  24.   protected
  25.     procedure DoClose; override;
  26.     procedure DoSelectionChange; override;
  27.     procedure DoShow; override;
  28.   public
  29.     constructor Create(AOwner: TComponent); override;
  30.     destructor Destroy; override;
  31.     function Execute: Boolean; override;
  32.   end;
  33.  
  34. { TSavePictureDialog }
  35.  
  36.   TSavePictureDialog = class(TOpenPictureDialog)
  37.     function Execute: Boolean; override;
  38.   end;
  39.  
  40. implementation
  41.